;Exam2014H26FallPrg1BubbleSort
;Exam2014H26HPrg1ou\[g
;----------------------------
MAIN START
	LAD GR1,DATA
	LD GR2,N
	CALL SORT
	RET
N DC 5
DATA DC 103,5067,68, 79, 7
DAT2 DC 103,5067,68, 79, 7
	END
;--------------
SORT START
	RPUSH
	SUBA GR2,=1   ;[vJE^Pݒ
LOOP1 LD GR3,GR2   ;[vJE^Qݒ
	LD GR4,GR1    ;GR4 <--- rvf̃AhX
LOOP2 LD GR5,0,GR4
	CPL GR5,1,GR4 ;̗vfr
 	JMI CONT      ;@A
	LD GR6,1,GR4  ;̗vfւ
	ST GR5,1,GR4
	ST GR6,0,GR4
CONT ADDA GR4,=1
	SUBA GR3,=1
	JPL LOOP2
	SUBA GR2,=1
	JPL LOOP1    ;@G
	RPOP
	RET
	END
;---------------
